
Type CalCoreSubMorphTarget

	Field m_vectorBlendVertex:CalBlendVertex[]
	Field m_name:String
	
	Method New()
	
		m_vectorBlendVertex = New CalBlendVertex[0]
		m_name = "morph"
	End Method
	
	Function Create:CalCoreSubMorphTarget(name:String = "morph")
		smt:CalCoreSubMorphTarget = New CalCoreSubMorphTarget
		smt.m_name = name
		Return smt
	
	End Function
	
	
	Method getBlendVertexCount:Int()
	
		Return m_vectorBlendVertex.length
	
	End Method
	
	Method getVectorBlendVertex:CalBlendVertex[]()
	
		Return m_vectorBlendVertex
	
	End Method
	
	Method reserve:Byte(blendVertexCount:Int)
	
		m_vectorBlendVertex = m_vectorBlendVertex[..blendVertexCount]
		Return True '?
		
	End Method
	
	Method setBlendVertex:Byte(blendVertexId:Int, blendVertex:CalBlendVertex)
	
		If blendVertexId < 0 Or blendVertexId >= m_vectorBlendVertex.length Then
			'DebugLog "Invalid BlendVertex ID"
			Return False
		EndIf
		
		m_vectorBlendVertex[blendVertexId] = blendVertex
		Return True		
	
	End Method
	
	

End Type


Type CalBlendVertex Extends CalVertex



End Type
